home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xcomposestatus.t < prev    next >
Text File  |  1990-06-01  |  619b  |  16 lines
  1. (herald xcomposestatus (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XCOMPOSESTATUS) (CONS 'XCOMPOSESTATUSP (MAKE-BYTEV 8)))
  3. (DEFINE (XCOMPOSESTATUS-COMPOSE_PTR X)
  4.         ((LAMBDA (X Y) (CONS 'CHARP (MREF-POINTER X Y)))
  5.          (CHK-XCOMPOSESTATUSP X)
  6.          0))
  7. (DEFINE (XCOMPOSESTATUS-COMPOSE_PTR! X Y)
  8.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-CHARP Z)))
  9.          (CHK-XCOMPOSESTATUSP X)
  10.          0
  11.          Y))
  12. (DEFINE (XCOMPOSESTATUS-CHARS_MATCHED X)
  13.         (MREF-INTEGER (CHK-XCOMPOSESTATUSP X) 4))
  14. (DEFINE (XCOMPOSESTATUS-CHARS_MATCHED! X Y)
  15.         (SET-MREF-INTEGER! (CHK-XCOMPOSESTATUSP X) 4 Y))
  16.